home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #04 (Oct85-Nov85) / basic / EjectLib Folder 1-12 / Eject.Demo < prev    next >
Text File  |  1985-09-07  |  783b  |  38 lines
  1. 'Eject Library Demo
  2. 'By Dave Kelly
  3. 'MacTutor ©1985
  4.  
  5. 'Note: EjectLib.Rsrc must be on default disk
  6. 'or you must specify vol name in Library statement
  7. LIBRARY  "EjectLib.Rsrc"
  8. 'Set up menus
  9. FOR i=1 TO 5
  10.     MENU i,0,0,""
  11. NEXT i
  12. MENU 1,0,1,"File"
  13. MENU 1,1,1,"Quit"
  14. MENU 2,0,1,"Eject Disk"
  15. MENU 2,1,1,"Eject Default Disk"
  16. MENU 2,2,1,"Eject Internal Disk"
  17. MENU 2,3,1,"Eject External Disk"
  18.  
  19. ON MENU GOSUB Menucheck:MENU ON
  20. pause:GOTO pause
  21.  
  22. Menucheck:
  23.     menunumber = MENU(0)
  24.     menuitem=MENU(1):MENU
  25.     IF menunumber = 1 THEN filemenu
  26.     IF menunumber <>2 THEN RETURN
  27.     IF menuitem = 1 THEN vol= 0
  28.     IF menuitem = 2 THEN vol = 1
  29.     IF menuitem = 3 THEN vol = 2
  30.     CALL Eject (vol)
  31.     RETURN
  32.     
  33. filemenu:
  34.     IF menuitem <> 1 THEN RETURN
  35.     MENU RESET:LIBRARY CLOSE:END
  36.  
  37.     
  38.